<!--#INCLUDE FILE="conn.asp"-->
<!-- #include file="aFunction_charCode.asp" -->
<!-- #include file="ad_comSub.asp" -->

<%
Call tslt_useridentity12_error_end()

communityid=request("communityid")

dim Myrs
dim Mysql
sql="select * from board  where mark=false and Communityid="&clng(communityid)          
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,2
      do while not rs.eof
              dim boardid2
              boardid2=rs("boardid")
              call board_user_delete(boardid2)
              call board_article_delete(boardid2)
              conn.Execute("delete from board where boardid="& boardid2)
              rs.movenext
       loop 
       conn.Execute("delete FROM community WHERE id="& communityid)
       call addC_DDZR(communityid)
       Response.write"<SCRIPT language=Javascript>passwords(promptInfo_community_delete(0))</SCRIPT>"
rs.close 
set rs=nothing

Call conn_Nothing()

sub board_user_delete(aaa)
                  dim rs,sql
                  sql="select username from admin where boardid="& aaa 
                  set rs=server.createobject("adodb.recordset")
                  rs.open sql,conn,1,2
                        do while not rs.eof
                               adminusername=rs("username")
                                dim rs2,sql2
                                sql2="select username from admin where username='"&adminusername&"' and boardid<>"& aaa
                                set rs2=server.createobject("adodb.recordset")
                                rs2.open sql2,conn,1,3
                                      if rs2.eof or rs2.bof then
                                            sql="update ts_userinfo set bclass=0,mark=0 where username='"&adminusername&"'"
                                            conn.Execute(sql)
                                      end if
                                rs2.close
                                set rs2=nothing
                                rs.MoveNext
                         loop 
                  rs.close
                  set rs=nothing
                  sql="delete from admin where boardid="& aaa
                  conn.Execute(sql)
end sub

sub board_article_delete(aaa)
                  dim rs,sql
                   set rs=server.createobject("adodb.recordset")
                   sql = "select * FROM article WHERE boardid="& aaa
                   rs.Open sql,conn,1,2
                         do while not rs.eof
                                Dim d_SavePathFileName2
                                set rs1=server.createobject("adodb.recordset")
                                Sql1 = "SELECT d_SavePathFileName FROM article WHERE id = " & rs("id")
                                Rs1.Open Sql1, Conn, 0, 1
                                        If Not Rs1.Eof Then
                                               d_SavePathFileName2 = Rs1("d_SavePathFileName")
                                        End If
                                        Dim aSavePathFileName2
                                        aSavePathFileName2 = Split(d_SavePathFileName2 , "|")
                                        Dim i
                                        For i = 0 To UBound(aSavePathFileName2)
                                                Call DoDelFile(aSavePathFileName2(i))
                                        Next
                                Rs1.close
                                set Rs1=nothing
                                rs.movenext
                          loop 
                   rs.close
                   set rs=nothing

                    set rs=server.createobject("adodb.recordset")
                    sql = "select * FROM article WHERE boardid="& aaa
                    rs.Open sql,conn,1,2
                                  do while not rs.eof
                                          Dim r_SavePathFileName2
                                          set rs2=server.createobject("adodb.recordset")
                                          Sql2 = "SELECT r_SavePathFileName FROM reply WHERE cstr(reply_id)= " & rs("id")
                                          Rs2.Open Sql2, Conn, 0, 1
                                                  do while not rs2.eof
                                                          If Not Rs2.Eof Then
                                                                  r_SavePathFileName2= Rs2("r_SavePathFileName")
                                                         End If
                                                         Dim bSavePathFileName2
                                                         bSavePathFileName2 = Split(r_SavePathFileName2, "|")
                                                         Dim j
                                                         For j = 0 To UBound(bSavePathFileName2)
                                                                Call DoDelFile(bSavePathFileName2(j))
                                                         Next
                                                         rs2.movenext
                                                   loop
                                                   conn.Execute("delete FROM reply WHERE cstr(reply_id)= " & rs("id"))
                                         Rs2.close
                                         set Rs2=nothing
                                         rs.movenext
                                  loop
                                  conn.Execute("delete FROM article WHERE boardid="& aaa)
                   rs.close
                   set rs=nothing
end sub

sub addC_DDZR(isCId)
       sql="select * from board  where mark=true and Communityid="&clng(isCId)          
       set rs=server.createobject("adodb.recordset")
       rs.open sql,conn,1,2
             do while not rs.eof
                    set rs2=conn.Execute("insert into community(CommunityName,CommunityHidden) values('Ȼ',true)")
                    rs.movenext
              loop 
              set rs2=conn.Execute("select id from community where CommunityName='Ȼ'")
              conn.Execute("update board set boardhidden=true,Communityid='"&rs2("id")&"' where mark=true")
       rs.close
       set rs=nothing 
end sub
%> 
